home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / delqhstx.arc / CLPQHST.CLP next >
Text File  |  1991-12-04  |  3KB  |  50 lines
  1. /*****************************************************************/
  2. /*                                                               */
  3. /* This clp will delete qhst files that are older than 7 days.   */
  4. /* Files are in QSYS format: QHSTyydddA                          */
  5. /*                                                               */
  6. /*   Where                                                       */
  7. /*           yy = Current Year                                   */
  8. /*           ddd= Current Day In Year                            */
  9. /*           A  = Alphabetic suffix (A,B,C, etc...)              */
  10. /*                                                               */
  11. /* The file names are retreived from QHSTFIL.QGPL which is       */
  12. /* created using a DSPOBJD command. This program reads the file  */
  13. /* and compares the file date (yyddd) to current julian date to  */
  14. /* determine whether or not to delete the file.                  */
  15. /*                                                               */
  16. /*****************************************************************/
  17.              PGM
  18.              DCLF       FILE(QHSTFIL.QGPL) RCDFMT(QLIDOBJD)
  19.              DCL        VAR(&ODLBNM) TYPE(*CHAR) LEN(10)
  20.              DCL        VAR(&ODOBNM) TYPE(*CHAR) LEN(10)
  21.              DCL        VAR(&CURDTE) TYPE(*CHAR) LEN(6)
  22.              DCL        VAR(&JULDTE) TYPE(*CHAR) LEN(5)
  23.              DCL        VAR(&CYR) TYPE(*DEC) LEN(2 0)
  24.              DCL        VAR(&FYR) TYPE(*DEC) LEN(2 0)
  25.              DCL        VAR(&CJUL) TYPE(*DEC) LEN(3 0)
  26.              DCL        VAR(&FJUL) TYPE(*DEC) LEN(3 0)
  27.              DCL        VAR(&HOWOLD) TYPE(*DEC) LEN(3 0)
  28.              RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&CURDTE)
  29.              CVTDAT     DATE(&CURDTE) TOVAR(&JULDTE) FROMFMT(*MDY) +
  30.                           TOFMT(*JUL) TOSEP(*NONE)
  31. READF:
  32.              RCVF
  33.              MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDCLPGM))
  34.  
  35.              CHGVAR     VAR(&CYR)  VALUE(%SST(&CURDTE 5 2))
  36.              CHGVAR     VAR(&FYR)  VALUE(%SST(&ODOBNM 5 2))
  37.              CHGVAR     VAR(&FJUL) VALUE(%SST(&ODOBNM 7 3))
  38.              CHGVAR     VAR(&CJUL) VALUE(%SST(&JULDTE 3 3))
  39.  
  40.              IF         (&CYR *NE &FYR) THEN(DO)
  41.                         CHGVAR VAR(&CJUL) VALUE(&CJUL + 365)
  42.                         ENDDO
  43.              CHGVAR     VAR(&HOWOLD) VALUE(&CJUL - &FJUL)
  44.              IF         (&HOWOLD *GT 7) THEN(DO)
  45.                         DLTF &ODOBNM.&ODLBNM
  46.                         ENDDO
  47.              GOTO READF
  48.  
  49. ENDCLPGM:    ENDPGM
  50.